home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / 64 fast pokes.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  44 lines
  1. 10 S=53281:B=S-1:REM SET UP VARIABLES FOR SCREEN AND BORDER
  2. 15 SC=1024:REM SET SCREEN POKE LOCATION TO SC
  3. 20 C=55296
  4. 30 PRINT"[147][155]THIS PROGRAM IS DESIGNED TO SHOW HOW TO QUICKLY POKE A ONE COLOR DISPLAY
  5. 40 [153]"ON THE SCREEN OF THE C 64 WITHOUT TIRE- SOME POKING COLOR INTO EACH
  6. 50 PRINT"LOCATION THAT IS USED.
  7. 60 [153]"AND IT IS FASTER THAN POKING THE WHOLE  SCREEN WITH COLOR.
  8. 70 PRINT"IF YOU HAVE EDUCATIONAL DISKS THAT DON'TWORK, YOU MIGHT TRY ADDING
  9. 80 [153]"THIS ROUTINE TO THEM AND SEE IF IT      DOESN'T CORRECT THE PROBLEM!
  10. 85 PRINT"SEE REMARKS IN THE PROGRAM FOR DOCUMEN- TATION."
  11. 90 A$="":GETA$:IFA$=""THEN90
  12. 100 PRINT"[147]":FORL=1TO22:PRINT:NEXT:PRINT"[155]I'M WORKING!!"
  13. 200 POKES,6:POKEB,14:REM SET COLOR TO START-UP COLORS
  14. 210 FORL=CTOC+999:POKEL,6:NEXT:REM SETS BACKGROUND TO SCREEN COLOR
  15. 215 PRINT"[147]"
  16. 220 POKESC+418,20:POKESC+419,8:POKESC+420,9:POKESC+421,19
  17. 230 POKESC+499,9:POKESC+500,19
  18. 240 POKESC+578,19:POKESC+579,12:POKESC+580,15:POKESC+581,23
  19. 250 FORL=CTOC+1000:POKEL,0:NEXT:PRINT""
  20. 290 FORL=1TO24:PRINT:NEXT:FORL=1TO1000:NEXT:PRINT"[155]READY?":FORL=1TO1000:NEXT:PRINT"GET SET!!"
  21. 310 POKES,6:POKEB,14:REM SET COLOR TO START-UP COLORS
  22. 320 FORL=CTOC+999:POKEL,6:NEXT:REM SETS BACKGROUND TO SCREEN COLOR
  23. 330 PRINT"[155]GO!!!!!!!"
  24. 340 REM ***** THE FOLLOWING ROUTINE DOES THE REAL WORK  *****
  25. 345 REM ** THE ONLY LINE THAT YOU NEED IS LINE #400. THE REST IS JUST WINDOW
  26. 350 REM ** DRESSING. SET THE BACKGROUND TO THE COLOR THAT YOU WANT THE CHAR-
  27. 355 REM ** ACTERS TO END UP, DO A SCREEN CLEAR, AND SET THE CHARACTER COLOR TO
  28. 360 REM ** BACKGROUND COLOR. THEN RETURN THE BACKGROUND TO THE ORIGINAL COLOR &
  29. 365 REM ** THE 64 FILLS THE CHARACTER COLOR LOCATIONS FOR YOU!
  30. 370 REM ** I DISCOVERSD THIS WHILE WRITING A GENEALOGY PROGRAM THAT DISPLAYS
  31. 375 REM ** A PEDIGREE CHART ON THE SCREEN. IF YOU ARE INTRESTED IN GENEALOGY
  32. 385 REM ** PROGRAMS FOR THE C 64, WRITE ME AT:
  33. 386 REM
  34. 390 REM       ROBERT J. COKEL                         906 WEST 6TH AVENUE
  35. 395 REM       MONMOUTH, ILL.                          61462
  36. 396 REM
  37. 397 REM
  38. 400 POKES,0:PRINT"[147][144]":REM  SET SCREEN TO BLACK AND SET CHARACTER COLOR TO BLACK
  39. 410 POKES,6:POKEB,14: REM  SET SCREEN TO ORIGINAL COLOR
  40. 420 POKESC+418,20:POKESC+419,8:POKESC+420,9:POKESC+421,19
  41. 430 POKESC+499,9:POKESC+500,19
  42. 440 POKESC+577,6:POKESC+578,1:POKESC+579,19:POKESC+580,20:POKESC+581,5:POKESC+582,18
  43. 450 PRINT"[155]":REM SET CURSOR COLOR
  44.